home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00772_SU-IN FA 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  525 b   |  18 lines
  1. on enterFrame
  2.   global gMaxBoutons, g1erSprLoc, gMessDef1, gMessSty1, gBarChron, g1erSprChr, gEtudAct, gTraduit
  3.   set gMaxBoutons to 39
  4.   set g1erSprLoc to 22
  5.   set the visible of sprite 2 to 1
  6.   set gMessDef1 to getAt(gTraduit, 30)
  7.   set gMessSty1 to "bold"
  8.   gBarChron(fleche, 0, 70, 2)
  9.   set the text of field "ZI1" to " "
  10.   set the text of field "ZI2" to " "
  11.   set the text of field "ZI3" to " "
  12.   set gEtudAct to "FA"
  13.   repeat with i = g1erSprChr to gMaxBoutons
  14.     puppetSprite(i, 1)
  15.   end repeat
  16.   JukeBox(1, " ")
  17. end
  18.